home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / t3_1 / risc_src.lha / risc_sources / xlib / xwindowchanges.t < prev    next >
Text File  |  1990-06-01  |  1KB  |  23 lines
  1. (herald xwindowchanges (env tsys (xlib interface)))
  2. (DEFINE (MAKE-XWINDOWCHANGES) (CONS 'XWINDOWCHANGESP (MAKE-BYTEV 28)))
  3. (DEFINE (XWINDOWCHANGES-X X) (MREF-INTEGER (CHK-XWINDOWCHANGESP X) 0))
  4. (DEFINE (XWINDOWCHANGES-X! X Y) (SET-MREF-INTEGER! (CHK-XWINDOWCHANGESP X) 0 Y))
  5. (DEFINE (XWINDOWCHANGES-Y X) (MREF-INTEGER (CHK-XWINDOWCHANGESP X) 4))
  6. (DEFINE (XWINDOWCHANGES-Y! X Y) (SET-MREF-INTEGER! (CHK-XWINDOWCHANGESP X) 4 Y))
  7. (DEFINE (XWINDOWCHANGES-WIDTH X) (MREF-INTEGER (CHK-XWINDOWCHANGESP X) 8))
  8. (DEFINE (XWINDOWCHANGES-WIDTH! X Y)
  9.         (SET-MREF-INTEGER! (CHK-XWINDOWCHANGESP X) 8 Y))
  10. (DEFINE (XWINDOWCHANGES-HEIGHT X) (MREF-INTEGER (CHK-XWINDOWCHANGESP X) 12))
  11. (DEFINE (XWINDOWCHANGES-HEIGHT! X Y)
  12.         (SET-MREF-INTEGER! (CHK-XWINDOWCHANGESP X) 12 Y))
  13. (DEFINE (XWINDOWCHANGES-BORDER_WIDTH X)
  14.         (MREF-INTEGER (CHK-XWINDOWCHANGESP X) 16))
  15. (DEFINE (XWINDOWCHANGES-BORDER_WIDTH! X Y)
  16.         (SET-MREF-INTEGER! (CHK-XWINDOWCHANGESP X) 16 Y))
  17. (DEFINE (XWINDOWCHANGES-SIBLING X) (MREF-INTEGER (CHK-XWINDOWCHANGESP X) 20))
  18. (DEFINE (XWINDOWCHANGES-SIBLING! X Y)
  19.         (SET-MREF-INTEGER! (CHK-XWINDOWCHANGESP X) 20 Y))
  20. (DEFINE (XWINDOWCHANGES-STACK_MODE X) (MREF-INTEGER (CHK-XWINDOWCHANGESP X) 24))
  21. (DEFINE (XWINDOWCHANGES-STACK_MODE! X Y)
  22.         (SET-MREF-INTEGER! (CHK-XWINDOWCHANGESP X) 24 Y))
  23.